home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Games of Daze
/
Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso
/
x2ftp
/
msdos
/
source
/
swags-z
/
textedit.swg
/
0002_CENTER2.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
193b
|
14 lines
{ Center Text }
Uses Crt;
Var
s : String;
i : Integer;
begin
Write('String? ');
readln(s);
i := (succ(lo(windmax)) - length(s)) shr 1;
gotoXY(i,10);
Write(s);
end.